home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / biz / demo / ArtStudioPro.lha / ArtStudioPro / Rexx / MakeStamp.asrx < prev    next >
Encoding:
Text File  |  1995-05-31  |  4.5 KB  |  162 lines
  1. /*
  2. ** MakeStamp.asrx
  3. **
  4. ** $VER: UNIVERSAL_LOADER V1.3.3 (01.02.95)
  5. **
  6. ** (c) by MotionStudios
  7. **        Wildermuthplatz 3
  8. **        28211 Bremen
  9. **        Tel.: 0421/249966
  10. **
  11. **
  12. ** xMax = Maximale Breite
  13. ** yMax = Maximale Hoehe
  14. ** Rand = 1, dann wird ein weisser Rand um das Bild gemacht
  15. ** A    = PixelAspect beachten
  16. ** D    = 1, dann Dithering einschalten
  17. ** W    = Anzahl der Sekunden, wie lange nach laden von ADPro gewartet werden soll
  18. ** R    = Rot-Anteil fuer Hintergrund
  19. ** G    = Gruen-Anteil fuer Hintergrund
  20. ** B    = Blau-Anteil fuer Hintergrund
  21. ** Col  = 0, dann Color, sonst Grey
  22. ** Path = TempPathFile
  23. */
  24.  
  25. ADDRESS "ADPro"
  26. OPTIONS RESULTS
  27.  
  28. PARSE ARG xMax yMax Rand A D W R G B Col Path
  29.  
  30. IF ~SHOW('P','ADPro') THEN
  31. DO
  32.  ADDRESS COMMAND 'run >NIL: <NIL: ADPro:ADPro BEHIND MAXMEM=7500000'
  33.  ADDRESS COMMAND Wait W
  34. END
  35.  
  36. ORIENTATION PORTRAIT
  37. PSTATUS "UNLOCKED"
  38. LOADER "UNIVERSAL" Path
  39. PSTATUS "LOCKED"
  40. PCONTRAST 1
  41. PWIDTH "ENHANCED"
  42.  
  43. IF Col=0 THEN DO
  44.                RENDER_TYPE '256'
  45.                POFFSET 0
  46.                PTOTAL 256
  47.                PUSED 256
  48.                PLOAD "ArtStudio:Color/Color256.iff"
  49.                PUSED 256
  50.               END
  51. IF Col=1 THEN DO
  52.                RENDER_TYPE '256'
  53.                POFFSET 0
  54.                PTOTAL 256
  55.                PUSED 256
  56.                PLOAD "ArtStudio:Color/Grey256.iff"
  57.                PUSED 236
  58.                POFFSET 20
  59.               END
  60. IF Col=2 THEN DO
  61.                RENDER_TYPE '128'
  62.                POFFSET 0
  63.                PTOTAL 128
  64.                PUSED 128
  65.                PLOAD "ArtStudio:Color/Grey128.iff"
  66.                PUSED 108
  67.                POFFSET 20
  68.               END
  69. IF Col=3 THEN DO
  70.                RENDER_TYPE '64'
  71.                POFFSET 0
  72.                PTOTAL 64
  73.                PUSED 64
  74.                PLOAD "ArtStudio:Color/Grey64.iff"
  75.                PUSED 44
  76.                POFFSET 20
  77.               END
  78. IF Col=4 THEN DO
  79.                RENDER_TYPE '32'
  80.                POFFSET 0
  81.                PTOTAL 32
  82.                PUSED 32
  83.                PLOAD "ArtStudio:Color/Grey32.iff"
  84.                PUSED 12
  85.                POFFSET 20
  86.               END
  87. IF Col=5 THEN DO
  88.                RENDER_TYPE '16'
  89.                POFFSET 0
  90.                PTOTAL 16
  91.                PUSED 16
  92.                PLOAD "ArtStudio:Color/Grey16.iff"
  93.                PUSED 8
  94.                POFFSET 8
  95.               END
  96.  
  97. XSIZE
  98.  x = ADPRO_RESULT
  99. YSIZE
  100.  y = ADPRO_RESULT
  101.  
  102. IF A=0 THEN DO
  103.              ABS_SCALE xMax yMax
  104.               x = xMax
  105.               y = yMax
  106.             END
  107.        ELSE DO
  108.              IF x >= y THEN DO
  109.                               z = x / y
  110.                              IF z < (4/3) THEN DO
  111.                                                  z = y / yMax
  112.                                                  x = x % z
  113.                                                  y = yMax
  114.                                                END
  115.                                           ELSE DO
  116.                                                  z = x / xMax
  117.                                                  y = y % z
  118.                                                  x = xMax
  119.                                                END
  120.                             END
  121.                        ELSE DO
  122.                               z = y / x
  123.                              IF z > (4/3) THEN DO
  124.                                                  z = y / yMax
  125.                                                  x = x % z
  126.                                                  y = yMax
  127.                                                END
  128.                                           ELSE DO
  129.                                                  z = y / yMax
  130.                                                  x = x % z
  131.                                                  y = yMax
  132.                                                END
  133.                             END
  134.              ABS_SCALE x y
  135.             END
  136.  
  137. IF D=1 THEN DO
  138.              DITHER_AMOUNT 16
  139.              DITHER 1
  140.             END
  141.        ELSE DITHER 0
  142. IMAGE
  143. BildArt = ADPRO_RESULT
  144. IF BildArt = 'GRAY' THEN OPERATOR Gray_To_Color
  145.  
  146. IF x<xMax OR y<yMax THEN DO
  147.                           SFORMAT 'IFF'
  148.                           SAVE Path RAW
  149.                           LOADER "BACKDROP" "XXX" xMax yMax "COLOR" R G B
  150.                v = (xMax - x) % 2
  151.                            w = (yMax - y) % 2
  152.                           LOADER "IFF" Path v w
  153.                          END
  154.  
  155. IF Col>0 THEN OPERATOR Color_To_Gray
  156. IF Rand=1 THEN OPERATOR RECTANGLE 0 0 xMax yMax 1 255 255 255 100
  157.  
  158. RENDER_TYPE 'CUST'
  159. EXECUTE
  160. SFORMAT 'IFF'
  161. SAVE Path IMAGE
  162.